home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / demo / slide / sun_disk1.lha / Install < prev    next >
Text File  |  1992-09-02  |  3KB  |  104 lines
  1. ;
  2. ;                                 |rOn oF TrS|
  3.  
  4. ;        Remember: For fast and friendly elite mail-trading write to:
  5. ;        .: iRoN of TrSi +  Broniewskiego 36/8 + 59700 Boleslawiec :.
  6. ;
  7. ;               One question -> what are you looking for here?
  8. ;
  9.  
  10. (complete 0)                ; set complete to 0
  11.  
  12. (set @default-dest          ; ask for destination
  13.     (askdir
  14.         (prompt "Please select a directory where SUN will be installed. Drawer SUN will be created!")
  15.         (help @askdir-help)
  16.         (default "dh1:")
  17.     )
  18. )
  19.  
  20. (set destdir (tackon @default-dest "SUN"))
  21.                             ; set destination to linked together names
  22.  
  23. (makedir destdir            ; Do I should explain it?
  24.     (prompt "I will create the directory /"SUN/"")
  25.     (help @makedir-help)
  26.     (infos)
  27. )
  28.  
  29. (onerror (exit "Sorry, error..."))
  30.  
  31. (complete 5)
  32.  
  33. (message "TRSI POLISH DIVISION\n\n\nPresents\n\n\A slideshow by Lazur\n\n\nMusic by Dreamer\nCode by Iron\n\n\n\" S U N \"")
  34.  
  35. (if (exists "TRSI:SUN0")                                    ; check if exists
  36.     (message "OK. I will copy all files from disk1 now...") ; yes, it does
  37.     (until (exists "TRSI:SUN0")                             ; no, it doesn't
  38.         (message "Ehm... You have to change disk!")         ; - repeat it until
  39.     )                                                       ; it exists
  40. )
  41.  
  42. (complete 10)
  43.  
  44. (copyfiles                      ; it's very important in all installers
  45.     (prompt "Copying data files from disk 1")
  46.     (help @copyfiles-help)
  47.     (source "TRSI:")
  48.     (dest destdir)
  49.     (pattern "SUN?")
  50.     (files)
  51. )
  52.  
  53. (complete 40)
  54.  
  55. (copyfiles
  56.     (prompt "Copying main-file from disk 1")
  57.     (help @copyfiles-help)
  58.     (source "TRSI:SUN")
  59.     (dest destdir)
  60. )
  61.  
  62. (copyfiles
  63.     (prompt "Copying main-file from disk 1")
  64.     (help @copyfiles-help)
  65.     (source "TRSI:TRSI-SUN.info")
  66.     (dest destdir)
  67. )
  68.  
  69. (copyfiles
  70.     (prompt "Copying main-file from disk 1")
  71.     (help @copyfiles-help)
  72.     (source "TRSI:S/TRSI-SUN")
  73.     (dest destdir)
  74. )
  75.  
  76. (complete 50)
  77.  
  78. (if (exists "TRSI:SUN6")
  79.     (message "OK. I will copy all files from disk2 now...")
  80.     (until (exists "TRSI:SUN6") 
  81.         (message "Ehm... You have to change disk!")
  82.     )
  83. )
  84.  
  85. (copyfiles
  86.     (prompt "Copying data files from disk 2")
  87.     (help @copyfiles-help)
  88.     (source "TRSI:")
  89.     (dest destdir)
  90.     (pattern "SUN?")
  91.     (files)
  92. )
  93.  
  94. (complete 99)
  95.  
  96. (message "For swapping write to:\n\nIron\nul.Broniewskiego 36/8\n59-700 Boleslawiec\n\nNorby\nPo Box 20\n56-300 Milicz\n\nQBA\nPo Box 105\n12-100 Sczytno")
  97.  
  98. (message "\n\n\nIf you don't have fast memory, then please disconnect all not used drives/partitions!\n\nSun needs about 1.8MB to decrunch!\n\n"
  99.          "You can decrunch \"SUN\" main file and after that SUN will need about 1.3MB to run.\n")
  100.  
  101. (complete 100)
  102.  
  103. (exit)                          ; blah...
  104.